home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / rexx / playamigadirect.avm < prev    next >
Text File  |  1994-06-24  |  661b  |  31 lines
  1. /*
  2. */
  3.  
  4. parse arg fileName .
  5. address command
  6.  
  7. if exists(filename || 'i') then do
  8.     avmbusy = getclip('AVMBusy')
  9.         say 'avmbusy=' avmbusy
  10.     if avmbusy = "" then call setclip('AVMBusy', '1')
  11.     else call setclip('AVMBusy', avmbusy + 1)
  12.  
  13.     'avm:dsound -2' filename || 'i'
  14.         /*
  15.     'avm:agmsplaysound' filename || 'i'
  16.         */
  17.  
  18.     avmbusy = getclip('AVMBusy')
  19.     call setclip('AVMBusy', avmbusy - 1)
  20. end; else do
  21.     avmbusy = getclip('AVMBusy')
  22.     if avmbusy = "" then call setclip('AVMBusy', '1')
  23.     else call setclip('AVMBusy', avmbusy + 1)
  24.  
  25.     'avm:adpcm2iff' fileName 'dummy' '-play' '-nosave'
  26.  
  27.     avmbusy = getclip('AVMBusy')
  28.     call setclip('AVMBusy', avmbusy - 1)
  29. end
  30.  
  31.